home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni & Inventori / Invenzioni and Inventori (Eclectica Publishing) (1996).ISO / invenzio / albgene4.dir / 00209_Script_209 < prev    next >
Text File  |  1983-01-30  |  605b  |  19 lines
  1. on chiamapopinv
  2.   global attore,cisei
  3.   set cisei to true
  4.     if objectP (attore) then   forget attore
  5.     
  6.   set attore to window ("popup")
  7.   if the machinetype < 255 then
  8.     set the filename of attore to ("invenzioni:invenzio:popinv.dir")
  9.   else
  10.     set a to char 1 of the moviepath
  11.     set the filename of attore to (a & ":\invenzio\popinv.dir")
  12.   end if
  13.   set s to rect (the stageLeft+68,the stageTop +117,the stageLeft+356,the stageTop + 430)
  14.   set the rect of window "popup" to s
  15.   set the windowType of  window "popup" to 3      
  16.   open attore
  17.   moveToFront window "popup"
  18. end 
  19.